home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 October / CHIP Ekim 1996.iso / winbatch / popmenu.mn_ < prev    next >
Text File  |  1995-10-30  |  2KB  |  79 lines
  1.       ErrorMode(@OFF)
  2.           wbdir=RegQueryValue(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch\CurrentVersion")
  3.           if wbdir==0 
  4.              wbdir=RegQueryValue(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch Compiler\CurrentVersion")
  5.           endif
  6.           ErrorMode(@CANCEL)
  7.           if wbdir==0
  8.              Display(5,"Error","Registry entries missing.  Re-install WinBatch")
  9.              exit
  10.           endif
  11.       homedir=strcat(wbdir,"system\")
  12.           ;Message("homedir",homedir)
  13.  
  14.  
  15. Two Explorers, side by side
  16.         a=IntControl(31,0,0,0,0)  ;return list of ids of explorer windows
  17.         c=ItemCount(a,@TAB)
  18.         switch c
  19.            case 0
  20.               run("explorer.exe","")
  21.               while FindWindow("ExploreWClass")==""    ;wait for it to come up
  22.                 Yield
  23.               end while
  24.               ;Fall into case 1
  25.  
  26.            case 1
  27.               run("explorer.exe","")
  28.               break
  29.            case c       ; 2 or more
  30.               break
  31.         endswitch
  32.         d=1
  33.         while c<2 && d<500
  34.            a=IntControl(31,0,0,0,0)
  35.            c=ItemCount(a,@TAB)
  36.            d=d+1
  37.         endwhile
  38.         if c<2 then exit
  39.         id1=ItemExtract(1,a,@TAB)
  40.         id2=ItemExtract(2,a,@tab)
  41.         WinPlaceSet(@NORMAL,id2,"500 0 1000 900")
  42.         WinShow(id2)
  43.         Yield
  44.         Yield
  45.         WinPlaceSet(@NORMAL,id1,"0 0 500 900")
  46.         WinShow(id1)
  47.  
  48.      exit
  49.  
  50. _&Freespace on Local Drives
  51.         call("%homedir%wwwmenu95.wil","FREESPACE")
  52.  
  53. &System Information
  54.        
  55.        call("%homedir%wwwmenu95.wil","SYSINFO 'WinBatch Popmenu'")
  56.  
  57. Interactive WIL
  58.         call("%homedir%wwwmenu95.wil","CMDSTACK NEWCMD")
  59.  
  60. &Blank Screen Now!
  61.             a=IniReadPvt("Boot","SCRNSAVE.EXE","FLYING~1.SCR","SYSTEM.INI")
  62.             ErrorMode(@OFF)
  63.             LastError()
  64.             run(a,"/s")
  65.             ErrorMode(@CANCEL)
  66.             if LastError() then Display(5,"Sorry","No screen blanker found")
  67.             
  68. _Load WIL Help File
  69.     WinHelp(strcat(wbdir,"Windows Interface Language.hlp"),"CONTENTS","")     
  70.  
  71.  
  72.  
  73.           
  74.            
  75.            
  76.            
  77.            
  78.            
  79.